#!/usr/bin/perl -wc

package RFCMail::ESMTP::Server::base;

use strict;
use warnings;
use IO::Handle;


sub get_line {
    my ($self) = @_;
    local $/ = $self->{eol};
    my $line = $self->{in_fh}->getline();
    chomp($line)
	if defined($line);
    return ($line);
}


sub put {
    my ($self, $data) = @_;
    $self->{out_fh}->syswrite($data);
}


1;
